home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / HENSA / MATHS / PLPLOT / PLPLOT.ZIP / src / stubc / sfstubs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-10  |  17.9 KB  |  628 lines
  1. /* ADFS::HardDisc4.$.f.sfstubs -- translated by f2c (version 19940510).
  2.    You must link the resulting object file with the libraries:
  3.     F:o.f2c_lib C:o.stubs
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. extern struct {
  11.     char string1[320];
  12. } zzplstr1_;
  13.  
  14. #define zzplstr1_1 zzplstr1_
  15.  
  16. extern struct {
  17.     char string2[320];
  18. } zzplstr2_;
  19.  
  20. #define zzplstr2_1 zzplstr2_
  21.  
  22. extern struct {
  23.     char string3[320];
  24. } zzplstr3_;
  25.  
  26. #define zzplstr3_1 zzplstr3_
  27.  
  28. extern struct {
  29.     char string4[320];
  30. } zzplstr4_;
  31.  
  32. #define zzplstr4_1 zzplstr4_
  33.  
  34. extern struct {
  35.     char string5[320];
  36. } zzplstr5_;
  37.  
  38. #define zzplstr5_1 zzplstr5_
  39.  
  40. extern struct {
  41.     char string6[320];
  42. } zzplstr6_;
  43.  
  44. #define zzplstr6_1 zzplstr6_
  45.  
  46. extern struct {
  47.     real tr[6];
  48. } plplot_;
  49.  
  50. #define plplot_1 plplot_
  51.  
  52. /* Table of constant values */
  53.  
  54. static integer c__320 = 320;
  55.  
  56. /* *********************************************************************** */
  57.  
  58. /*  sfstubs.f */
  59.  
  60. /*  This file contains all the fortran stub routines. */
  61. /*  REAL variables correspond to: real*4 */
  62.  
  63. /* *********************************************************************** */
  64. /* Subroutine */ int plsdev_(char *dnam, ftnlen dnam_len)
  65. {
  66.     /* Local variables */
  67.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  68.         ftnlen);
  69. #define s1 ((integer *)&zzplstr1_1)
  70. #define s2 ((integer *)&zzplstr2_1)
  71. #define s3 ((integer *)&zzplstr3_1)
  72. #define s4 ((integer *)&zzplstr4_1)
  73. #define s5 ((integer *)&zzplstr5_1)
  74. #define s6 ((integer *)&zzplstr6_1)
  75.     extern /* Subroutine */ int plsdev7_(integer *);
  76.  
  77.     plstrf2c_(dnam, zzplstr1_1.string1, &c__320, dnam_len, 320L);
  78.     plsdev7_(s1);
  79.     return 0;
  80. } /* plsdev_ */
  81.  
  82. #undef s6
  83. #undef s5
  84. #undef s4
  85. #undef s3
  86. #undef s2
  87. #undef s1
  88.  
  89.  
  90. /* *********************************************************************** */
  91. /* Subroutine */ int plsfnam_(char *fnam, ftnlen fnam_len)
  92. {
  93.     /* Local variables */
  94.     extern /* Subroutine */ int plsfnam7_(integer *), plstrf2c_(char *, char *
  95.         , integer *, ftnlen, ftnlen);
  96. #define s1 ((integer *)&zzplstr1_1)
  97. #define s2 ((integer *)&zzplstr2_1)
  98. #define s3 ((integer *)&zzplstr3_1)
  99. #define s4 ((integer *)&zzplstr4_1)
  100. #define s5 ((integer *)&zzplstr5_1)
  101. #define s6 ((integer *)&zzplstr6_1)
  102.  
  103.     plstrf2c_(fnam, zzplstr1_1.string1, &c__320, fnam_len, 320L);
  104.     plsfnam7_(s1);
  105.     return 0;
  106. } /* plsfnam_ */
  107.  
  108. #undef s6
  109. #undef s5
  110. #undef s4
  111. #undef s3
  112. #undef s2
  113. #undef s1
  114.  
  115.  
  116. /* *********************************************************************** */
  117. /* Subroutine */ int plgfnam_(char *fnam, ftnlen fnam_len)
  118. {
  119.     /* Local variables */
  120.     extern /* Subroutine */ int plstrc2f_(char *, char *, ftnlen, ftnlen);
  121. #define s1 ((integer *)&zzplstr1_1)
  122. #define s2 ((integer *)&zzplstr2_1)
  123. #define s3 ((integer *)&zzplstr3_1)
  124. #define s4 ((integer *)&zzplstr4_1)
  125. #define s5 ((integer *)&zzplstr5_1)
  126. #define s6 ((integer *)&zzplstr6_1)
  127.     extern /* Subroutine */ int plgfnam7_(char *, ftnlen);
  128.  
  129.     plgfnam7_(zzplstr1_1.string1, 320L);
  130.     plstrc2f_(zzplstr1_1.string1, fnam, 320L, fnam_len);
  131.     return 0;
  132. } /* plgfnam_ */
  133.  
  134. #undef s6
  135. #undef s5
  136. #undef s4
  137. #undef s3
  138. #undef s2
  139. #undef s1
  140.  
  141.  
  142. /* *********************************************************************** */
  143. /* Subroutine */ int plgver_(char *ver, ftnlen ver_len)
  144. {
  145.     /* Local variables */
  146.     extern /* Subroutine */ int plstrc2f_(char *, char *, ftnlen, ftnlen);
  147. #define s1 ((integer *)&zzplstr1_1)
  148. #define s2 ((integer *)&zzplstr2_1)
  149. #define s3 ((integer *)&zzplstr3_1)
  150. #define s4 ((integer *)&zzplstr4_1)
  151. #define s5 ((integer *)&zzplstr5_1)
  152. #define s6 ((integer *)&zzplstr6_1)
  153.     extern /* Subroutine */ int plgver7_(integer *);
  154.  
  155.     plgver7_(s1);
  156.     plstrc2f_(zzplstr1_1.string1, ver, 320L, ver_len);
  157.     return 0;
  158. } /* plgver_ */
  159.  
  160. #undef s6
  161. #undef s5
  162. #undef s4
  163. #undef s3
  164. #undef s2
  165. #undef s1
  166.  
  167.  
  168. /* *********************************************************************** */
  169. /* Subroutine */ int plaxes_(real *x0, real *y0, char *xopt, real *xtick, 
  170.     integer *nxsub, char *yopt, real *ytick, integer *nysub, ftnlen 
  171.     xopt_len, ftnlen yopt_len)
  172. {
  173.     /* Local variables */
  174.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  175.         ftnlen);
  176. #define s1 ((integer *)&zzplstr1_1)
  177. #define s2 ((integer *)&zzplstr2_1)
  178. #define s3 ((integer *)&zzplstr3_1)
  179. #define s4 ((integer *)&zzplstr4_1)
  180. #define s5 ((integer *)&zzplstr5_1)
  181. #define s6 ((integer *)&zzplstr6_1)
  182.     extern /* Subroutine */ int plaxes7_(real *, real *, integer *, real *, 
  183.         integer *, integer *, real *, integer *);
  184.  
  185.     plstrf2c_(xopt, zzplstr1_1.string1, &c__320, xopt_len, 320L);
  186.     plstrf2c_(yopt, zzplstr2_1.string2, &c__320, yopt_len, 320L);
  187.     plaxes7_(x0, y0, s1, xtick, nxsub, s2, ytick, nysub);
  188.     return 0;
  189. } /* plaxes_ */
  190.  
  191. #undef s6
  192. #undef s5
  193. #undef s4
  194. #undef s3
  195. #undef s2
  196. #undef s1
  197.  
  198.  
  199. /* *********************************************************************** */
  200. /* Subroutine */ int plbox_(char *xopt, real *xtick, integer *nxsub, char *
  201.     yopt, real *ytick, integer *nysub, ftnlen xopt_len, ftnlen yopt_len)
  202. {
  203.     /* Local variables */
  204.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  205.         ftnlen);
  206. #define s1 ((integer *)&zzplstr1_1)
  207. #define s2 ((integer *)&zzplstr2_1)
  208. #define s3 ((integer *)&zzplstr3_1)
  209. #define s4 ((integer *)&zzplstr4_1)
  210. #define s5 ((integer *)&zzplstr5_1)
  211. #define s6 ((integer *)&zzplstr6_1)
  212.     extern /* Subroutine */ int plbox7_(integer *, real *, integer *, integer 
  213.         *, real *, integer *);
  214.  
  215.     plstrf2c_(xopt, zzplstr1_1.string1, &c__320, xopt_len, 320L);
  216.     plstrf2c_(yopt, zzplstr2_1.string2, &c__320, yopt_len, 320L);
  217.     plbox7_(s1, xtick, nxsub, s2, ytick, nysub);
  218.     return 0;
  219. } /* plbox_ */
  220.  
  221. #undef s6
  222. #undef s5
  223. #undef s4
  224. #undef s3
  225. #undef s2
  226. #undef s1
  227.  
  228.  
  229. /* *********************************************************************** */
  230. /* Subroutine */ int plbox3_(char *xopt, char *xlabel, real *xtick, integer *
  231.     nxsub, char *yopt, char *ylabel, real *ytick, integer *nysub, char *
  232.     zopt, char *zlabel, real *ztick, integer *nzsub, ftnlen xopt_len, 
  233.     ftnlen xlabel_len, ftnlen yopt_len, ftnlen ylabel_len, ftnlen 
  234.     zopt_len, ftnlen zlabel_len)
  235. {
  236.     /* Local variables */
  237.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  238.         ftnlen);
  239. #define s1 ((integer *)&zzplstr1_1)
  240. #define s2 ((integer *)&zzplstr2_1)
  241. #define s3 ((integer *)&zzplstr3_1)
  242. #define s4 ((integer *)&zzplstr4_1)
  243. #define s5 ((integer *)&zzplstr5_1)
  244. #define s6 ((integer *)&zzplstr6_1)
  245.     extern /* Subroutine */ int plbox37_(integer *, integer *, real *, 
  246.         integer *, integer *, integer *, real *, integer *, integer *, 
  247.         integer *, real *, integer *);
  248.  
  249.     plstrf2c_(xopt, zzplstr1_1.string1, &c__320, xopt_len, 320L);
  250.     plstrf2c_(xlabel, zzplstr2_1.string2, &c__320, xlabel_len, 320L);
  251.     plstrf2c_(yopt, zzplstr3_1.string3, &c__320, yopt_len, 320L);
  252.     plstrf2c_(ylabel, zzplstr4_1.string4, &c__320, ylabel_len, 320L);
  253.     plstrf2c_(zopt, zzplstr5_1.string5, &c__320, zopt_len, 320L);
  254.     plstrf2c_(zlabel, zzplstr6_1.string6, &c__320, zlabel_len, 320L);
  255.     plbox37_(s1, s2, xtick, nxsub, s3, s4, ytick, nysub, s5, s6, ztick, nzsub)
  256.         ;
  257.     return 0;
  258. } /* plbox3_ */
  259.  
  260. #undef s6
  261. #undef s5
  262. #undef s4
  263. #undef s3
  264. #undef s2
  265. #undef s1
  266.  
  267.  
  268. /* *********************************************************************** */
  269. /* Subroutine */ int plcon0_(real *z, integer *nx, integer *ny, integer *kx, 
  270.     integer *lx, integer *ky, integer *ly, real *clevel, integer *nlevel)
  271. {
  272.     /* System generated locals */
  273.     integer z_dim1, z_offset;
  274.  
  275.     /* Local variables */
  276.     extern /* Subroutine */ int plcon07_(real *, integer *, integer *, 
  277.         integer *, integer *, integer *, integer *, real *, integer *);
  278.  
  279.     /* Parameter adjustments */
  280.     z_dim1 = *nx;
  281.     z_offset = z_dim1 + 1;
  282.     z -= z_offset;
  283.     --clevel;
  284.  
  285.     /* Function Body */
  286.     plcon07_(&z[z_offset], nx, ny, kx, lx, ky, ly, &clevel[1], nlevel);
  287.     return 0;
  288. } /* plcon0_ */
  289.  
  290. /* *********************************************************************** */
  291. /* Subroutine */ int plcon1_(real *z, integer *nx, integer *ny, integer *kx, 
  292.     integer *lx, integer *ky, integer *ly, real *clevel, integer *nlevel, 
  293.     real *xg, real *yg)
  294. {
  295.     /* System generated locals */
  296.     integer z_dim1, z_offset;
  297.  
  298.     /* Local variables */
  299.     extern /* Subroutine */ int plcon17_(real *, integer *, integer *, 
  300.         integer *, integer *, integer *, integer *, real *, integer *, 
  301.         real *, real *);
  302.  
  303.     /* Parameter adjustments */
  304.     --xg;
  305.     --yg;
  306.     z_dim1 = *nx;
  307.     z_offset = z_dim1 + 1;
  308.     z -= z_offset;
  309.     --clevel;
  310.  
  311.     /* Function Body */
  312.     plcon17_(&z[z_offset], nx, ny, kx, lx, ky, ly, &clevel[1], nlevel, &xg[1],
  313.          &yg[1]);
  314.     return 0;
  315. } /* plcon1_ */
  316.  
  317. /* *********************************************************************** */
  318. /* Subroutine */ int plcon2_(real *z, integer *nx, integer *ny, integer *kx, 
  319.     integer *lx, integer *ky, integer *ly, real *clevel, integer *nlevel, 
  320.     real *xg, real *yg)
  321. {
  322.     /* System generated locals */
  323.     integer z_dim1, z_offset, xg_dim1, xg_offset, yg_dim1, yg_offset;
  324.  
  325.     /* Local variables */
  326.     extern /* Subroutine */ int plcon27_(real *, integer *, integer *, 
  327.         integer *, integer *, integer *, integer *, real *, integer *, 
  328.         real *, real *);
  329.  
  330.     /* Parameter adjustments */
  331.     yg_dim1 = *nx;
  332.     yg_offset = yg_dim1 + 1;
  333.     yg -= yg_offset;
  334.     xg_dim1 = *nx;
  335.     xg_offset = xg_dim1 + 1;
  336.     xg -= xg_offset;
  337.     z_dim1 = *nx;
  338.     z_offset = z_dim1 + 1;
  339.     z -= z_offset;
  340.     --clevel;
  341.  
  342.     /* Function Body */
  343.     plcon27_(&z[z_offset], nx, ny, kx, lx, ky, ly, &clevel[1], nlevel, &xg[
  344.         xg_offset], &yg[yg_offset]);
  345.     return 0;
  346. } /* plcon2_ */
  347.  
  348. /* *********************************************************************** */
  349. /* Subroutine */ int plcont_(real *z, integer *nx, integer *ny, integer *kx, 
  350.     integer *lx, integer *ky, integer *ly, real *clevel, integer *nlevel)
  351. {
  352.     /* System generated locals */
  353.     integer z_dim1, z_offset;
  354.  
  355.     /* Local variables */
  356.     extern /* Subroutine */ int plcont7_(real *, integer *, integer *, 
  357.         integer *, integer *, integer *, integer *, real *, integer *, 
  358.         real *);
  359.  
  360.     /* Parameter adjustments */
  361.     z_dim1 = *nx;
  362.     z_offset = z_dim1 + 1;
  363.     z -= z_offset;
  364.     --clevel;
  365.  
  366.     /* Function Body */
  367.     plcont7_(&z[z_offset], nx, ny, kx, lx, ky, ly, &clevel[1], nlevel, 
  368.         plplot_1.tr);
  369.     return 0;
  370. } /* plcont_ */
  371.  
  372. /* *********************************************************************** */
  373. /* Subroutine */ int plshade0_(real *z, integer *nx, integer *ny, char *
  374.     defined_, real *xmin, real *xmax, real *ymin, real *ymax, real *
  375.     shade_min__, real *shade_max__, integer *sh_cmap__, real *sh_color__, 
  376.     integer *sh_width__, integer *min_color__, integer *min_width__, 
  377.     integer *max_color__, integer *max_width__, ftnlen defined_len)
  378. {
  379.     /* System generated locals */
  380.     integer z_dim1, z_offset;
  381.  
  382.     /* Local variables */
  383.     extern /* Subroutine */ int plshade07_(real *, integer *, integer *, 
  384.         integer *, real *, real *, real *, real *, real *, real *, 
  385.         integer *, real *, integer *, integer *, integer *, integer *, 
  386.         integer *);
  387. #define s1 ((integer *)&zzplstr1_1)
  388. #define s2 ((integer *)&zzplstr2_1)
  389. #define s3 ((integer *)&zzplstr3_1)
  390. #define s4 ((integer *)&zzplstr4_1)
  391. #define s5 ((integer *)&zzplstr5_1)
  392. #define s6 ((integer *)&zzplstr6_1)
  393.  
  394. /*     call plstrf2c(dnam, string1, maxlen) */
  395.     /* Parameter adjustments */
  396.     z_dim1 = *nx;
  397.     z_offset = z_dim1 + 1;
  398.     z -= z_offset;
  399.  
  400.     /* Function Body */
  401.     plshade07_(&z[z_offset], nx, ny, s1, xmin, xmax, ymin, ymax, shade_min__, 
  402.         shade_max__, sh_cmap__, sh_color__, sh_width__, min_color__, 
  403.         min_width__, max_color__, max_width__);
  404.     return 0;
  405. } /* plshade0_ */
  406.  
  407. #undef s6
  408. #undef s5
  409. #undef s4
  410. #undef s3
  411. #undef s2
  412. #undef s1
  413.  
  414.  
  415. /* *********************************************************************** */
  416. /* Subroutine */ int plshade1_(real *z, integer *nx, integer *ny, char *
  417.     defined_, real *xmin, real *xmax, real *ymin, real *ymax, real *
  418.     shade_min__, real *shade_max__, integer *sh_cmap__, real *sh_color__, 
  419.     integer *sh_width__, integer *min_color__, integer *min_width__, 
  420.     integer *max_color__, integer *max_width__, real *xg, real *yg, 
  421.     ftnlen defined_len)
  422. {
  423.     /* System generated locals */
  424.     integer z_dim1, z_offset;
  425.  
  426.     /* Local variables */
  427.     extern /* Subroutine */ int plshade17_(real *, integer *, integer *, 
  428.         integer *, real *, real *, real *, real *, real *, real *, 
  429.         integer *, real *, integer *, integer *, integer *, integer *, 
  430.         integer *, real *, real *);
  431. #define s1 ((integer *)&zzplstr1_1)
  432. #define s2 ((integer *)&zzplstr2_1)
  433. #define s3 ((integer *)&zzplstr3_1)
  434. #define s4 ((integer *)&zzplstr4_1)
  435. #define s5 ((integer *)&zzplstr5_1)
  436. #define s6 ((integer *)&zzplstr6_1)
  437.  
  438. /*     call plstrf2c(dnam, string1, maxlen) */
  439.     /* Parameter adjustments */
  440.     --xg;
  441.     --yg;
  442.     z_dim1 = *nx;
  443.     z_offset = z_dim1 + 1;
  444.     z -= z_offset;
  445.  
  446.     /* Function Body */
  447.     plshade17_(&z[z_offset], nx, ny, s1, xmin, xmax, ymin, ymax, shade_min__, 
  448.         shade_max__, sh_cmap__, sh_color__, sh_width__, min_color__, 
  449.         min_width__, max_color__, max_width__, &xg[1], &yg[1]);
  450.     return 0;
  451. } /* plshade1_ */
  452.  
  453. #undef s6
  454. #undef s5
  455. #undef s4
  456. #undef s3
  457. #undef s2
  458. #undef s1
  459.  
  460.  
  461. /* *********************************************************************** */
  462. /* Subroutine */ int plshade2_(real *z, integer *nx, integer *ny, char *
  463.     defined_, real *xmin, real *xmax, real *ymin, real *ymax, real *
  464.     shade_min__, real *shade_max__, integer *sh_cmap__, real *sh_color__, 
  465.     integer *sh_width__, integer *min_color__, integer *min_width__, 
  466.     integer *max_color__, integer *max_width__, real *xg, real *yg, 
  467.     ftnlen defined_len)
  468. {
  469.     /* System generated locals */
  470.     integer z_dim1, z_offset, xg_dim1, xg_offset, yg_dim1, yg_offset;
  471.  
  472.     /* Local variables */
  473.     extern /* Subroutine */ int plshade27_(real *, integer *, integer *, 
  474.         integer *, real *, real *, real *, real *, real *, real *, 
  475.         integer *, real *, integer *, integer *, integer *, integer *, 
  476.         integer *, real *, real *);
  477. #define s1 ((integer *)&zzplstr1_1)
  478. #define s2 ((integer *)&zzplstr2_1)
  479. #define s3 ((integer *)&zzplstr3_1)
  480. #define s4 ((integer *)&zzplstr4_1)
  481. #define s5 ((integer *)&zzplstr5_1)
  482. #define s6 ((integer *)&zzplstr6_1)
  483.  
  484. /*     call plstrf2c(dnam, string1, maxlen) */
  485.     /* Parameter adjustments */
  486.     yg_dim1 = *nx;
  487.     yg_offset = yg_dim1 + 1;
  488.     yg -= yg_offset;
  489.     xg_dim1 = *nx;
  490.     xg_offset = xg_dim1 + 1;
  491.     xg -= xg_offset;
  492.     z_dim1 = *nx;
  493.     z_offset = z_dim1 + 1;
  494.     z -= z_offset;
  495.  
  496.     /* Function Body */
  497.     plshade27_(&z[z_offset], nx, ny, s1, xmin, xmax, ymin, ymax, shade_min__, 
  498.         shade_max__, sh_cmap__, sh_color__, sh_width__, min_color__, 
  499.         min_width__, max_color__, max_width__, &xg[xg_offset], &yg[
  500.         yg_offset]);
  501.     return 0;
  502. } /* plshade2_ */
  503.  
  504. #undef s6
  505. #undef s5
  506. #undef s4
  507. #undef s3
  508. #undef s2
  509. #undef s1
  510.  
  511.  
  512. /* *********************************************************************** */
  513. /* Subroutine */ int pllab_(char *xlab, char *ylab, char *title, ftnlen 
  514.     xlab_len, ftnlen ylab_len, ftnlen title_len)
  515. {
  516.     /* Local variables */
  517.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  518.         ftnlen);
  519. #define s1 ((integer *)&zzplstr1_1)
  520. #define s2 ((integer *)&zzplstr2_1)
  521. #define s3 ((integer *)&zzplstr3_1)
  522. #define s4 ((integer *)&zzplstr4_1)
  523. #define s5 ((integer *)&zzplstr5_1)
  524. #define s6 ((integer *)&zzplstr6_1)
  525.     extern /* Subroutine */ int pllab7_(integer *, integer *, integer *);
  526.  
  527.     plstrf2c_(xlab, zzplstr1_1.string1, &c__320, xlab_len, 320L);
  528.     plstrf2c_(ylab, zzplstr2_1.string2, &c__320, ylab_len, 320L);
  529.     plstrf2c_(title, zzplstr3_1.string3, &c__320, title_len, 320L);
  530.     pllab7_(s1, s2, s3);
  531.     return 0;
  532. } /* pllab_ */
  533.  
  534. #undef s6
  535. #undef s5
  536. #undef s4
  537. #undef s3
  538. #undef s2
  539. #undef s1
  540.  
  541.  
  542. /* *********************************************************************** */
  543. /* Subroutine */ int plmtex_(char *side, real *disp, real *pos, real *xjust, 
  544.     char *text, ftnlen side_len, ftnlen text_len)
  545. {
  546.     /* Local variables */
  547.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  548.         ftnlen);
  549. #define s1 ((integer *)&zzplstr1_1)
  550. #define s2 ((integer *)&zzplstr2_1)
  551. #define s3 ((integer *)&zzplstr3_1)
  552. #define s4 ((integer *)&zzplstr4_1)
  553. #define s5 ((integer *)&zzplstr5_1)
  554. #define s6 ((integer *)&zzplstr6_1)
  555.     extern /* Subroutine */ int plmtex7_(integer *, real *, real *, real *, 
  556.         integer *);
  557.  
  558.     plstrf2c_(side, zzplstr1_1.string1, &c__320, side_len, 320L);
  559.     plstrf2c_(text, zzplstr2_1.string2, &c__320, text_len, 320L);
  560.     plmtex7_(s1, disp, pos, xjust, s2);
  561.     return 0;
  562. } /* plmtex_ */
  563.  
  564. #undef s6
  565. #undef s5
  566. #undef s4
  567. #undef s3
  568. #undef s2
  569. #undef s1
  570.  
  571.  
  572. /* *********************************************************************** */
  573. /* Subroutine */ int plptex_(real *x, real *y, real *dx, real *dy, real *
  574.     xjust, char *text, ftnlen text_len)
  575. {
  576.     /* Local variables */
  577.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  578.         ftnlen);
  579. #define s1 ((integer *)&zzplstr1_1)
  580. #define s2 ((integer *)&zzplstr2_1)
  581. #define s3 ((integer *)&zzplstr3_1)
  582. #define s4 ((integer *)&zzplstr4_1)
  583. #define s5 ((integer *)&zzplstr5_1)
  584. #define s6 ((integer *)&zzplstr6_1)
  585.     extern /* Subroutine */ int plptex7_(real *, real *, real *, real *, real 
  586.         *, integer *);
  587.  
  588.     plstrf2c_(text, zzplstr1_1.string1, &c__320, text_len, 320L);
  589.     plptex7_(x, y, dx, dy, xjust, s1);
  590.     return 0;
  591. } /* plptex_ */
  592.  
  593. #undef s6
  594. #undef s5
  595. #undef s4
  596. #undef s3
  597. #undef s2
  598. #undef s1
  599.  
  600.  
  601. /* *********************************************************************** */
  602. /* Subroutine */ int plstart_(char *devname, integer *nx, integer *ny, ftnlen 
  603.     devname_len)
  604. {
  605.     /* Local variables */
  606.     extern /* Subroutine */ int plstrf2c_(char *, char *, integer *, ftnlen, 
  607.         ftnlen), plstart7_(integer *, integer *, integer *);
  608. #define s1 ((integer *)&zzplstr1_1)
  609. #define s2 ((integer *)&zzplstr2_1)
  610. #define s3 ((integer *)&zzplstr3_1)
  611. #define s4 ((integer *)&zzplstr4_1)
  612. #define s5 ((integer *)&zzplstr5_1)
  613. #define s6 ((integer *)&zzplstr6_1)
  614.  
  615.     plstrf2c_(devname, zzplstr1_1.string1, &c__320, devname_len, 320L);
  616.     plstart7_(s1, nx, ny);
  617.     return 0;
  618. } /* plstart_ */
  619.  
  620. #undef s6
  621. #undef s5
  622. #undef s4
  623. #undef s3
  624. #undef s2
  625. #undef s1
  626.  
  627.  
  628.